home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbtools1.arc / AESTRMAK.BAS < prev    next >
BASIC Source File  |  1987-01-18  |  261b  |  13 lines
  1. rem $linesize:132
  2. rem $title:'Application Engineer Standard Routines'
  3. rem $subtitle:'Translate a number into a string'
  4. '                Include the COMMON values
  5. rem $include:'AESHARED.BAS'            
  6.     
  7. sub Strmake( aa$,bb% ) static
  8.  
  9.         aa$=mid$(str$(bb%),2%)
  10.  
  11. end sub
  12.  
  13.